home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
stos
/
stos_77
/
patgen.bas
(
.txt
)
< prev
next >
Wrap
Atari STOS Basic
|
1990-06-03
|
34KB
|
231 lines
10 VARNAME
100 GOSUB
1000 INK
1010 CENTRE
1020 CENTRE
1030 LOCATE
1040 LOCATE
1050 LOCATE
1060 LOCATE
1070 LOCATE
1080 LOCATE
1090 LOCATE
110 SCREEN COPY
1100 LOCATE
1110 LOCATE
1120 LOCATE
1130 LOCATE
1140 LOCATE
1150 LOCATE
1160 LOCATE
1170 WAIT KEY
1180 SCREEN COPY
1190 ON
120 SET LINE
1200 RETURN
1210 UNKNOWN OP: 0x3A
1220 REM boxes etc
1230 VARNAME
1240 VARNAME
1250 FOR
1260 INK
1270 BOX
1280 VARNAME
1290 IF
130 GOSUB
1300 VARNAME
1310 IF
1320 IF
1330 IF
1340 IF
1350 IF
1360 NEXT
1370 RETURN
1380 UNKNOWN OP: 0x3A
1390 REM TEST FOR A KEYPRESS
140 SCREEN COPY
1400 EXTENSION (Index #2) (Token 0x86)
1410 VARNAME
1420 IF
1430 IF
1440 IF
1450 IF
1460 IF
1470 IF
1480 IF
1490 IF
150 GOSUB
1500 IF
1510 IF
1520 IF
1530 CLEAR KEY
1540 RETURN
1550 UNKNOWN OP: 0x3A
1560 REM rays
1570 SET LINE
1580 FOR
1590 IF
160 SCREEN COPY
1600 IF
1610 IF
1620 INK
1630 POLYLINE
1640 NEXT
1650 UNKNOWN OP: 0x3A
1660 FOR
1670 IF
1680 IF
1690 IF
170 GOSUB
1700 INK
1710 POLYLINE
1720 NEXT
1730 RETURN
1740 UNKNOWN OP: 0x3A
1750 REM CIRCLES
1760 IF
1770 VARNAME
1780 FOR
1790 INK
180 SCREEN COPY
1800 ARC
1810 ARC
1820 IF
1830 IF
1840 IF
1850 NEXT
1860 RETURN
1870 UNKNOWN OP: 0x3A
1880 REM DIAMONDS
1890 VARNAME
190 GOSUB
1900 FOR
1910 VARNAME
1920 IF
1930 VARNAME
1940 IF
1950 IF
1960 IF
1970 INK
1980 POLYLINE
1990 IF
20 MODE
200 SCREEN COPY
2000 IF
2010 IF
2020 NEXT
2030 RETURN
2040 UNKNOWN OP: 0x3A
2050 DEC
2060 ON
2070 RETURN
2080 UNKNOWN OP: 0x3A
2090 REM STARS
210 GOSUB
2100 VARNAME
2110 VARNAME
2120 VARNAME
2130 VARNAME
2140 VARNAME
2150 VARNAME
2160 VARNAME
2170 FOR
2180 IF
2190 IF
220 SCREEN COPY
2200 INK
2210 IF
2220 IF
2230 POLYLINE
2240 VARNAME
2250 IF
2260 IF
2270 IF
2280 IF
2290 NEXT
230 GOSUB
2300 RETURN
240 GOTO
250 UNKNOWN OP: 0x3A
260 REM MOIRE PATTERNS
270 GOSUB
280 GR WRITING
290 UNKNOWN OP: 0x3A
30 RESERVE
300 FOR
310 IF
320 POLYLINE
330 NEXT
340 UNKNOWN OP: 0x3A
350 FOR
360 IF
370 POLYLINE
380 NEXT
390 IF
40 RESERVE
400 UNKNOWN OP: 0x3A
410 REM INCREMENT VARIABLES / CHECK FOR ILLEGAL COORDINATES ETC.
420 VARNAME
430 IF
440 VARNAME
450 IF
460 IF
470 INK
480 UNKNOWN OP: 0x3A
490 REM SUBROUTINE TO ALTER STEP SIZE / COLOUR
50 HIDE
500 IF
510 VARNAME
520 IF
530 FLASH
540 ON
550 RETURN
560 UNKNOWN OP: 0x3A
570 FADE
580 FADE
590 FADE
60 AUTO BACK
600 FADE
610 FADE
620 FADE
630 FADE
640 FADE
650 FADE
660 FADE
670 FADE
680 FADE
690 FADE
70 VARNAME
700 FADE
710 FADE
720 UNKNOWN OP: 0x3A
730 REM SAVE SCREEN
740 SCREEN COPY
750 PAPER
760 LOCATE
770 ON ERROR
780 IF
790 IF
80 UNKNOWN OP: 0x3A
800 GOTO
810 CURS
820 CURS
830 IF
840 HIDE
850 ON
860 RETURN
870 IF
880 UNKNOWN OP: 0x3A
890 REM TITLE & HELP SCREENS
90 VARNAME
900 SCREEN COPY
910 SCREEN COPY
920 FOR
930 ON
940 TIMER
950 VARNAME
960 IF
970 NEXT
980 GOTO
990 MODE